home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ IE Outlook Express 8.xpl < prev    next >
Text File  |  2001-11-27  |  2KB  |  65 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Outlook Express\Appearance"
  5. "NAME"="Custom URLs"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Infopane URL:"
  8. "TEXT 2"="Help URL:"
  9. "DESCRIPTION 1"="You may find that you have a bar at the bottom of your copy of Outlook Express, which will probably offer links to pages on your ISP's web site. This is called the Info Pane (or Body Bar), and this plug-in will let you customize the URL which Outlook Express uses to display the page. Note that you must type in the protocol (ie you must type 'http://www.xteq.com/ instead of just www.xteq.com)."
  10. "DESCRIPTION 2"="NB: If you can't see the Info Pane, open up Outlook Express, open the View menu, and choose Layout, then place a tick by 'Info Pane'. If you have not set an URL above, you will not see this option. Also, this is NOT the pane shown when using a Hotmail account in Outlook Express 5.01 or above."
  11. "DESCRIPTION 3"="The second option changes the URL you visit when you go to Help > Microsoft On The Web > Online Support in Outlook Express. Generally this is set by your ISP, but you can override this here. If it is not set, it points to Microsoft's Outlook Express web site."
  12. "COMMENT 1"="Hmmm... I never realised how much my ISP customized Outlook Express...."
  13. "VERSION"="1.01"
  14. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "CONTACTURL"="http://www.xteq.com/"
  17.  
  18. ID="HKCU\Identities\Last User ID"
  19. sP1="\Software\Microsoft\Outlook Express\5.0\"
  20. Inf="BodyBarPath"
  21. Hlp="HelpUrl"
  22.  
  23. SUB Plugin_Initialize
  24.  y=RegReadValue(ID)
  25.  if IsEmpty(y)=false then
  26.   sValPath="HKCU\Identities\" & y & sP1
  27.  
  28.   t=RegReadValue(sValPath & Inf)
  29.   Call SetUIElement(1,t)
  30.  
  31.   t=RegReadValue(sValPath & Hlp)
  32.   Call SetUIElement(2,t)
  33.  else
  34.   Call Disable()
  35.  end if
  36. END SUB
  37.  
  38. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  39.  y=RegReadValue(ID)
  40.  sValPath="HKCU\Identities\" & y & sP1
  41.  
  42.  s=GetUIElement(1)
  43.  if Len(s)<=0 then
  44.   b=RegReadValue(sValPath & Inf)
  45.   if IsEmpty(b)=false then
  46.    Call RegDeleteValue(sValPath & Inf)
  47.   end if
  48.  else
  49.   Call RegWriteValue(sValPath & Inf,s,1)
  50.  end if
  51.  
  52.  s=GetUIElement(2)
  53.  if Len(s)<=0 then
  54.   b=RegReadValue(sValPath & Hlp)
  55.   if IsEmpty(b)=false then
  56.    Call RegDeleteValue(sValPath & Hlp)
  57.   end if
  58.  else
  59.   Call RegWriteValue(sValPath & Hlp,s,1)
  60.  end if
  61. END SUB
  62.  
  63. SUB Plugin_Terminate
  64. END SUB
  65.